`cons` <-
function(rule, data)
{
	# cons
	ct = contingencyTable(rule, data);
	return (ct[["nrc"]] / ct[["nr"]]);
}

